"0","```r
consDendro <- as.dendrogram(constrained)
heatmap.2(scpdSM, Rowv= consDendro, col=dissimColors, distfun=function(m) vegdist(m,method=\"bray\"), RowSideColors = ageColors, tracecol=NA, dendrogram=\"row\")
```"
